
#Include "fbstrings.bi"

Using FB.Strings

Dim As String s = !"Lorem ipsum dolor sit amet,\nconsectetuer adipiscing elit,\rsed diam\r\nnonummy nibh..."
Dim As String lines()
Dim As Integer numLines

numLines = StrLines(s, lines())

For i As Integer = 0 To numLines - 1
	Print i;": "; lines(i)
Next 

Sleep